0 REMSAVE"ORDER BLANK-LS",8
10 PRINT"[147][155]":POKE53281,0:POKE53280,4:
15 S$ ="                      "
18 T$=S$:GOSUB60000
20 T$=" [204][207][193][196][211][212][193][210] ORDER BLANK ":GOSUB60000
28 T$=S$:GOSUB60000:PRINT
200 :GOSUB1000:GOTO4000
1000 M$="  [204][207][193][196][211][212][193][210]":GOSUB60900:RETURN
4000 P$="ORDER FORM":GOTO63000
50000 END
60000 PRINTTAB(20-LEN(T$)/2);T$:RETURN
60900 PRINT:PRINT"[196]O YOU WANT TO SEE THE ORDER BLANK ON"
60910 PRINT:PRINT"THE SCREEN OR THE PRINTER?  <S/P>"
60920 POKE198,0:WAIT198,1:GETPR$:IFPR$<>"P"THENPR$="S"
60924 IF PR$><"P"THEN 60930
60925 PRINT:PRINT"[212]URN ON YOUR PRINTER AND PRESS <SPACE>."
60926 POKE198,0:WAIT198,1:GETK$
60930 GOSUB 61000
60990 RETURN
61000 REM ORDER BLANK
61005 PRINT"[147]";
61006 PRINT"         [207][210][196][197][210][160][198][207][210][205][160]- [204][207][193][196][211][212][193][210] #12"
61010 PRINT"[205]AIL TO:":PRINT"   [204][207][193][196][211][212][193][210]"
61020 PRINT"   [208].[207]. [194]OX 30007"
61030 PRINT"   [211]HREVEPORT, [204][193]   71130-0007"
61050 PRINT:PRINT"[217][197][211], START MY SUBSCRIPTION TO [204][207][193][196][211][212][193][210]."
61080 PRINT:PRINT" 6 MONTHS FOR[160]$39.95      ([195]IRCLE ONE)"
61090 PRINT"12 MONTHS FOR $69.95"
61100 PRINT"   [207][214][197][210][211][197][193][211] [160]$109.95      [213][211][160]CURRENCY"
61200 PRINT:REMPRINT
61210 PRINT"[206]AME:.................................. [208]HONE ................"
61220 PRINT"[193]DDRESS................................"
61230 PRINT"[195]ITY ................. [211]T. ... [218]IP ...."
61240 PRINT"[211]IGNATURE ............................."
61250 PRINT"[214]ISA/[205]ASTER[195]ARD # ..................... [197]XP. DATE ........."
61255 PRINT
61260 PRINT"[205]AKE CHECK OR MONEY ORDER PAYABLE TO:   [204][207][193][196][211][212][193][210]."
61400 IFPR$="P"THENGOSUB61500
61405 IFPR$="Q"THEN61490
61410 POKE207,0:POKE204,0:GETK$:POKE2039,RND(1)*255:IFK$=""THEN61410
61490 POKE204,1:POKE207,0:RETURN
61500 REM SCREEN DUMP
61510 OPEN4,4,7:CMD4
61515 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
61520 PR$="Q":GOSUB 61000
61580 PRINT#4:CLOSE4
61590 RETURN
63000 REM CONNECTIONS
63010 PRINT"[147]LOAD"CHR$(34)P$CHR$(34)",8":PRINT"RUN"
63020 POKE631,13:POKE632,13:POKE198,2:END